home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 November: Tool Chest / Dev.CD Nov 00 TC Disk 2.toast / pc / tool chest / communications toolbox / ctb development resources / commtoolbox roadmap / tm calls / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-05-11  |  6.8 KB  |  51 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>27</cardCount>
  7.     <cardID>3013</cardID>
  8.     <listID>8343</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>576</width>
  14.         <height>400</height>
  15.     </cardSize>
  16.     <script>-- ***
  17. on openStack
  18. show groups
  19. setCode
  20. end openStack
  21.  
  22. -- ***
  23. on closeStack
  24. resetStack
  25. end closeStack
  26.  
  27. -- ***
  28. on setCode
  29. global codeStatus
  30.  
  31. put "help" into codeStatus
  32. end setCode
  33.  
  34. -- ***
  35. on mouseUp
  36. end mouseUp
  37.  
  38. -- ***
  39. on openBackground
  40. global codeStatus
  41.  
  42. set hilite of bg btn "help" to FALSE
  43. set hilite of bg btn "edit" to FALSE
  44. set hilite of bg btn codeStatus to TRUE
  45. set lockText of fld "source" to codeStatus is "help"
  46. set visible of fld "help" to codeStatus is "help"
  47. end openBackground
  48.  
  49. -- ***
  50. on openCard
  51. global codeTemp
  52.  
  53. put fld "source" into codeTemp
  54. end openCard
  55.  
  56. -- ***
  57. on closeCard
  58. global codeTemp
  59.  
  60. put codeTemp into fld "source"
  61. end closeCard
  62.  
  63.  
  64.  
  65.  
  66. -- ***
  67. on resetStack
  68. hide groups
  69. lock screen
  70. repeat with i =1 to number of bgs
  71. go to bg i
  72. set cursor to busy
  73. hide bg btn "selectedCat"
  74. hide bg btn "selectedBox"
  75. set hilite of bg btn "Help" to TRUE
  76. set hilite of bg btn "Edit" to FALSE
  77. set lockText of fld "source" to TRUE
  78. set visible of fld "help" to TRUE
  79. end repeat
  80. repeat with i =1 to number of cds
  81. go to cd i
  82. set cursor to busy
  83. set scroll of fld "source" to 0
  84. end repeat
  85. end resetStack
  86.  
  87. -- ***
  88. on moveCat
  89. global info411
  90.  
  91. if short name of target is not short name of this cd then
  92. set loc of bg btn "selectedCat" to loc of target
  93. show bg btn "selectedCat"
  94. lock screen
  95. hide bg btn "selectedBox"
  96. if short name of target is not short name of this bg
  97. then go to cd "start"
  98. set loc of bg btn "selectedCat" to loc of target
  99. show bg btn "selectedCat"
  100. unlock screen with wipe left
  101. lock screen
  102. go to cd short name of target
  103. set loc of bg btn "selectedCat" to loc of target
  104. show bg btn "selectedCat"
  105. put cd fld "the 411 info" into info411
  106. unlock screen with wipe right
  107. end if
  108. end moveCat
  109.  
  110. -- ***
  111. on moveSub
  112. if short name of target is not short name of this cd then
  113. set loc of bg btn "selectedBox" to loc of target
  114. lock screen
  115. show bg btn "selectedBox"
  116. unlock screen
  117. lock screen
  118. go to cd short name of target
  119. unlock screen with wipe right
  120. end if
  121. end moveSub
  122.  
  123. -- ***
  124. on lookUp
  125. global info411
  126.  
  127. put clickText() into theWord
  128. put find411 (info411, theWord) into foundText
  129. if foundText is SPACE then beep
  130. else
  131. lock screen
  132. go to stack "Comm Toolbox Calls" in a new window
  133. put foundText into cd fld "Text"
  134. unlock screen
  135. end if
  136. end lookUp
  137.  
  138. -- ***
  139. function find411 theFld, theWd
  140. if theWd is not EMPTY then
  141. put "√¶KY" && theWd into theWd
  142. put offset(theWd, theFld) into firstChar
  143. if firstChar > 0 then
  144. put offset("‚Ä¢", char firstChar to length of theFld of theFld) -2¬¨
  145. into captureLength
  146. return char firstChar+4 to firstChar+captureLength of theFld
  147. end if
  148. end if
  149. return SPACE
  150. end find411
  151.  
  152.  
  153. -- ***
  154. on setCodeStatus turnOn, turnOff
  155. global codeStatus
  156.  
  157. set hilite of bg btn turnOn to TRUE
  158. set hilite of bg btn turnOff to FALSE
  159. set lockText of fld "source" to turnOn is "help"
  160. set visible of fld "help" to turnOn is "help"
  161. put turnOn into codeStatus
  162. end setCodeStatus
  163.  
  164.  
  165.  
  166.  
  167.  
  168. -- ***
  169. on goNext
  170. lock screen
  171. if short name of this cd is short name of this bg then
  172. go next bg
  173. if "Start" is in short name of this bg then go next bg
  174. set loc of bg btn "selectedCat" to loc of fld short name of this bg
  175. else
  176. go next cd
  177. if short name of this cd is short name of this bg then go to cd 2 of prev bg
  178. set loc of bg btn "selectedBox" to loc of fld short name of this cd
  179. unlock screen with wipe right
  180. end if
  181. end goNext
  182.  
  183. -- ***
  184. on goPrev
  185. lock screen
  186. if short name of this cd is short name of this bg then
  187. go to cd 1 of prev bg
  188. if "Start" is in short name of this bg then go to cd 1 of prev bg
  189. set loc of bg btn "selectedCat" to loc of fld short name of this bg
  190. else
  191. go prev cd
  192. if short name of this cd is short name of this bg then go to last cd of this bg
  193. set loc of bg btn "selectedBox" to loc of fld short name of this cd
  194. unlock screen with wipe left
  195. end if
  196. end goPrev
  197.  
  198.  
  199.  
  200. -- ***
  201. on blank
  202. put EMPTY into fld "source"
  203. openCard
  204. end blank</script>
  205.     <background id="2117" file="background_2117.xml" name="Initialization" />
  206.     <background id="2609" file="background_2609.xml" name="Start" />
  207.     <background id="4094" file="background_4094.xml" name="terminal" />
  208.     <background id="5862" file="background_5862.xml" name="Configuring" />
  209.     <background id="7555" file="background_7555.xml" name="Callbacks" />
  210.     <background id="8636" file="background_8636.xml" name="event" />
  211.     <card id="3013" file="card_3013.xml" marked="false" name="Start" owner="2609" />
  212.     <card id="2504" file="card_2504.xml" marked="false" name="Initialization" owner="2117" />
  213.     <card id="14493" file="card_14493.xml" marked="false" name="Gestalt" owner="2117" />
  214.     <card id="14809" file="card_14809.xml" marked="false" name="Init Mgr" owner="2117" />
  215.     <card id="4211" file="card_4211.xml" marked="false" name="terminal" owner="4094" />
  216.     <card id="4769" file="card_4769.xml" marked="false" name="Structure" owner="4094" />
  217.     <card id="5073" file="card_5073.xml" marked="false" name="Default" owner="4094" />
  218.     <card id="5143" file="card_5143.xml" marked="false" name="Document" owner="4094" />
  219.     <card id="15049" file="card_15049.xml" marked="false" name="saving" owner="4094" />
  220.     <card id="5515" file="card_5515.xml" marked="false" name="Disposing" owner="4094" />
  221.     <card id="5945" file="card_5945.xml" marked="false" name="Configuring" owner="5862" />
  222.     <card id="6449" file="card_6449.xml" marked="false" name="Choose" owner="5862" />
  223.     <card id="6861" file="card_6861.xml" marked="false" name="Custom" owner="5862" />
  224.     <card id="6947" file="card_6947.xml" marked="false" name="Configuration Strings" owner="5862" />
  225.     <card id="7414" file="card_7414.xml" marked="false" name="Configuration Records" owner="5862" />
  226.     <card id="7926" file="card_7926.xml" marked="false" name="Callbacks" owner="7555" />
  227.     <card id="10533" file="card_10533.xml" marked="false" name="Sending" owner="7555" />
  228.     <card id="10992" file="card_10992.xml" marked="false" name="Receiving" owner="7555" />
  229.     <card id="11025" file="card_11025.xml" marked="false" name="Caching" owner="7555" />
  230.     <card id="10250" file="card_10250.xml" marked="false" name="Click" owner="7555" />
  231.     <card id="13679" file="card_13679.xml" marked="false" name="environment" owner="7555" />
  232.     <card id="12925" file="card_12925.xml" marked="false" name="break" owner="7555" />
  233.     <card id="8903" file="card_8903.xml" marked="false" name="event" owner="8636" />
  234.     <card id="12069" file="card_12069.xml" marked="false" name="Window" owner="8636" />
  235.     <card id="8189" file="card_8189.xml" marked="false" name="Key" owner="8636" />
  236.     <card id="12422" file="card_12422.xml" marked="false" name="Menus" owner="8636" />
  237.     <card id="12597" file="card_12597.xml" marked="false" name="OS" owner="8636" />
  238. </stack>
  239.